home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1999-10-21 | 7.8 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 54 7d 2f 2f 20 55 57 69 |........|T}// UWi|
|00000010| 6e 64 6f 77 45 64 69 74 | 42 6f 78 20 2d 20 73 69 |ndowEdit|Box - si|
|00000020| 6d 70 6c 65 20 65 64 69 | 74 20 62 6f 78 2c 20 66 |mple edi|t box, f|
|00000030| 6f 72 20 75 73 65 20 69 | 6e 20 6f 74 68 65 72 20 |or use i|n other |
|00000040| 63 6f 6e 74 72 6f 6c 73 | 20 73 75 63 68 20 61 73 |controls| such as|
|00000050| 20 0d 0a 2f 2f 20 55 57 | 69 6e 64 6f 77 43 6f 6d | ..// UW|indowCom|
|00000060| 62 6f 78 42 6f 78 43 6f | 6e 74 72 6f 6c 2c 20 55 |boxBoxCo|ntrol, U|
|00000070| 57 69 6e 64 6f 77 45 64 | 69 74 42 6f 78 43 6f 6e |WindowEd|itBoxCon|
|00000080| 74 72 6f 6c 20 65 74 63 | 2e 0d 0a 0d 0a 63 6c 61 |trol etc|.....cla|
|00000090| 73 73 20 55 57 69 6e 64 | 6f 77 45 64 69 74 42 6f |ss UWind|owEditBo|
|000000a0| 78 20 65 78 74 65 6e 64 | 73 20 55 57 69 6e 64 6f |x extend|s UWindo|
|000000b0| 77 44 69 61 6c 6f 67 43 | 6f 6e 74 72 6f 6c 3b 0d |wDialogC|ontrol;.|
|000000c0| 0a 0d 0a 76 61 72 20 73 | 74 72 69 6e 67 09 09 56 |...var s|tring..V|
|000000d0| 61 6c 75 65 3b 0d 0a 76 | 61 72 20 73 74 72 69 6e |alue;..v|ar strin|
|000000e0| 67 09 09 56 61 6c 75 65 | 32 3b 0d 0a 76 61 72 20 |g..Value|2;..var |
|000000f0| 69 6e 74 09 09 09 43 61 | 72 65 74 4f 66 66 73 65 |int...Ca|retOffse|
|00000100| 74 3b 0d 0a 76 61 72 20 | 69 6e 74 09 09 09 4d 61 |t;..var |int...Ma|
|00000110| 78 4c 65 6e 67 74 68 3b | 0d 0a 76 61 72 20 66 6c |xLength;|..var fl|
|00000120| 6f 61 74 09 09 4c 61 73 | 74 44 72 61 77 54 69 6d |oat..Las|tDrawTim|
|00000130| 65 3b 0d 0a 76 61 72 20 | 62 6f 6f 6c 09 09 62 53 |e;..var |bool..bS|
|00000140| 68 6f 77 43 61 72 65 74 | 3b 0d 0a 76 61 72 20 66 |howCaret|;..var f|
|00000150| 6c 6f 61 74 09 09 4f 66 | 66 73 65 74 3b 0d 0a 76 |loat..Of|fset;..v|
|00000160| 61 72 20 55 57 69 6e 64 | 6f 77 44 69 61 6c 6f 67 |ar UWind|owDialog|
|00000170| 43 6f 6e 74 72 6f 6c 09 | 4e 6f 74 69 66 79 4f 77 |Control.|NotifyOw|
|00000180| 6e 65 72 3b 0d 0a 76 61 | 72 20 62 6f 6f 6c 09 09 |ner;..va|r bool..|
|00000190| 62 4e 75 6d 65 72 69 63 | 4f 6e 6c 79 3b 0d 0a 76 |bNumeric|Only;..v|
|000001a0| 61 72 20 62 6f 6f 6c 09 | 09 62 43 61 6e 45 64 69 |ar bool.|.bCanEdi|
|000001b0| 74 3b 0d 0a 76 61 72 20 | 62 6f 6f 6c 09 09 62 41 |t;..var |bool..bA|
|000001c0| 6c 6c 53 65 6c 65 63 74 | 65 64 3b 0d 0a 76 61 72 |llSelect|ed;..var|
|000001d0| 20 62 6f 6f 6c 09 09 62 | 53 65 6c 65 63 74 4f 6e | bool..b|SelectOn|
|000001e0| 46 6f 63 75 73 3b 0d 0a | 76 61 72 20 62 6f 6f 6c |Focus;..|var bool|
|000001f0| 09 09 62 44 65 6c 61 79 | 65 64 4e 6f 74 69 66 79 |..bDelay|edNotify|
|00000200| 3b 0d 0a 76 61 72 20 62 | 6f 6f 6c 09 09 62 43 68 |;..var b|ool..bCh|
|00000210| 61 6e 67 65 50 65 6e 64 | 69 6e 67 3b 0d 0a 76 61 |angePend|ing;..va|
|00000220| 72 20 62 6f 6f 6c 09 09 | 62 43 6f 6e 74 72 6f 6c |r bool..|bControl|
|00000230| 44 6f 77 6e 3b 0d 0a 76 | 61 72 20 62 6f 6f 6c 09 |Down;..v|ar bool.|
|00000240| 09 62 53 68 69 66 74 44 | 6f 77 6e 3b 0d 0a 0d 0a |.bShiftD|own;....|
|00000250| 66 75 6e 63 74 69 6f 6e | 20 43 72 65 61 74 65 64 |function| Created|
|00000260| 28 29 0d 0a 7b 0d 0a 09 | 53 75 70 65 72 2e 43 72 |()..{...|Super.Cr|
|00000270| 65 61 74 65 64 28 29 3b | 0d 0a 09 62 43 61 6e 45 |eated();|...bCanE|
|00000280| 64 69 74 20 3d 20 54 72 | 75 65 3b 0d 0a 09 62 43 |dit = Tr|ue;...bC|
|00000290| 6f 6e 74 72 6f 6c 44 6f | 77 6e 20 3d 20 46 61 6c |ontrolDo|wn = Fal|
|000002a0| 73 65 3b 0d 0a 09 62 53 | 68 69 66 74 44 6f 77 6e |se;...bS|hiftDown|
|000002b0| 20 3d 20 46 61 6c 73 65 | 3b 0d 0a 0d 0a 09 4d 61 | = False|;.....Ma|
|000002c0| 78 4c 65 6e 67 74 68 20 | 3d 20 32 35 35 3b 0d 0a |xLength |= 255;..|
|000002d0| 09 43 61 72 65 74 4f 66 | 66 73 65 74 20 3d 20 30 |.CaretOf|fset = 0|
|000002e0| 3b 0d 0a 09 4f 66 66 73 | 65 74 20 3d 20 30 3b 0d |;...Offs|et = 0;.|
|000002f0| 0a 09 4c 61 73 74 44 72 | 61 77 54 69 6d 65 20 3d |..LastDr|awTime =|
|00000300| 20 47 65 74 4c 65 76 65 | 6c 28 29 2e 54 69 6d 65 | GetLeve|l().Time|
|00000310| 53 65 63 6f 6e 64 73 3b | 0d 0a 7d 0d 0a 0d 0a 66 |Seconds;|..}....f|
|00000320| 75 6e 63 74 69 6f 6e 20 | 53 65 74 45 64 69 74 61 |unction |SetEdita|
|00000330| 62 6c 65 28 62 6f 6f 6c | 20 62 45 64 69 74 61 62 |ble(bool| bEditab|
|00000340| 6c 65 29 0d 0a 7b 0d 0a | 09 62 43 61 6e 45 64 69 |le)..{..|.bCanEdi|
|00000350| 74 20 3d 20 62 45 64 69 | 74 61 62 6c 65 3b 0d 0a |t = bEdi|table;..|
|00000360| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 53 65 |}....fun|ction Se|
|00000370| 74 56 61 6c 75 65 28 73 | 74 72 69 6e 67 20 4e 65 |tValue(s|tring Ne|
|00000380| 77 56 61 6c 75 65 2c 20 | 6f 70 74 69 6f 6e 61 6c |wValue, |optional|
|00000390| 20 73 74 72 69 6e 67 20 | 4e 65 77 56 61 6c 75 65 | string |NewValue|
|000003a0| 32 29 0d 0a 7b 0d 0a 09 | 56 61 6c 75 65 20 3d 20 |2)..{...|Value = |
|000003b0| 4e 65 77 56 61 6c 75 65 | 3b 0d 0a 09 56 61 6c 75 |NewValue|;...Valu|
|000003c0| 65 32 20 3d 20 4e 65 77 | 56 61 6c 75 65 32 3b 0d |e2 = New|Value2;.|
|000003d0| 0a 0d 0a 09 69 66 28 43 | 61 72 65 74 4f 66 66 73 |....if(C|aretOffs|
|000003e0| 65 74 20 3e 20 4c 65 6e | 28 56 61 6c 75 65 29 29 |et > Len|(Value))|
|000003f0| 0d 0a 09 09 43 61 72 65 | 74 4f 66 66 73 65 74 20 |....Care|tOffset |
|00000400| 3d 20 4c 65 6e 28 56 61 | 6c 75 65 29 3b 09 09 0d |= Len(Va|lue);...|
|00000410| 0a 09 4e 6f 74 69 66 79 | 28 44 45 5f 43 68 61 6e |..Notify|(DE_Chan|
|00000420| 67 65 29 3b 0d 0a 7d 0d | 0a 0d 0a 66 75 6e 63 74 |ge);..}.|...funct|
|00000430| 69 6f 6e 20 43 6c 65 61 | 72 28 29 0d 0a 7b 0d 0a |ion Clea|r()..{..|
|00000440| 09 43 61 72 65 74 4f 66 | 66 73 65 74 20 3d 20 30 |.CaretOf|fset = 0|
|00000450| 3b 0d 0a 09 56 61 6c 75 | 65 3d 22 22 3b 0d 0a 09 |;...Valu|e="";...|
|00000460| 56 61 6c 75 65 32 3d 22 | 22 3b 0d 0a 09 62 41 6c |Value2="|";...bAl|
|00000470| 6c 53 65 6c 65 63 74 65 | 64 20 3d 20 46 61 6c 73 |lSelecte|d = Fals|
|00000480| 65 3b 0d 0a 09 69 66 28 | 62 44 65 6c 61 79 65 64 |e;...if(|bDelayed|
|00000490| 4e 6f 74 69 66 79 29 0d | 0a 09 09 62 43 68 61 6e |Notify).|...bChan|
|000004a0| 67 65 50 65 6e 64 69 6e | 67 20 3d 20 54 72 75 65 |gePendin|g = True|
|000004b0| 3b 0d 0a 09 65 6c 73 65 | 0d 0a 09 09 4e 6f 74 69 |;...else|....Noti|
|000004c0| 66 79 28 44 45 5f 43 68 | 61 6e 67 65 29 3b 0d 0a |fy(DE_Ch|ange);..|
|000004d0| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 53 65 |}....fun|ction Se|
|000004e0| 6c 65 63 74 41 6c 6c 28 | 29 0d 0a 7b 0d 0a 09 69 |lectAll(|)..{...i|
|000004f0| 66 28 62 43 61 6e 45 64 | 69 74 20 26 26 20 56 61 |f(bCanEd|it && Va|
|00000500| 6c 75 65 20 21 3d 20 22 | 22 29 0d 0a 09 7b 0d 0a |lue != "|")...{..|
|00000510| 09 09 43 61 72 65 74 4f | 66 66 73 65 74 20 3d 20 |..CaretO|ffset = |
|00000520| 4c 65 6e 28 56 61 6c 75 | 65 29 3b 0d 0a 09 09 62 |Len(Valu|e);....b|
|00000530| 41 6c 6c 53 65 6c 65 63 | 74 65 64 20 3d 20 54 72 |AllSelec|ted = Tr|
|00000540| 75 65 3b 0d 0a 09 7d 0d | 0a 7d 0d 0a 0d 0a 66 75 |ue;...}.|.}....fu|
|00000550| 6e 63 74 69 6f 6e 20 73 | 74 72 69 6e 67 20 47 65 |nction s|tring Ge|
|00000560| 74 56 61 6c 75 65 28 29 | 0d 0a 7b 0d 0a 09 72 65 |tValue()|..{...re|
|00000570| 74 75 72 6e 20 56 61 6c | 75 65 3b 0d 0a 7d 0d 0a |turn Val|ue;..}..|
|00000580| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 73 74 72 69 6e |..functi|on strin|
|00000590| 67 20 47 65 74 56 61 6c | 75 65 32 28 29 0d 0a 7b |g GetVal|ue2()..{|
|000005a0| 0d 0a 09 72 65 74 75 72 | 6e 20 56 61 6c 75 65 32 |...retur|n Value2|
|000005b0| 3b 0d 0a 7d 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |;..}....|function|
|000005c0| 20 4e 6f 74 69 66 79 28 | 62 79 74 65 20 45 29 0d | Notify(|byte E).|
|000005d0| 0a 7b 0d 0a 09 69 66 28 | 4e 6f 74 69 66 79 4f 77 |.{...if(|NotifyOw|
|000005e0| 6e 65 72 20 21 3d 20 4e | 6f 6e 65 29 0d 0a 09 7b |ner != N|one)...{|
|000005f0| 0d 0a 09 09 4e 6f 74 69 | 66 79 4f 77 6e 65 72 2e |....Noti|fyOwner.|
|00000600| 4e 6f 74 69 66 79 28 45 | 29 3b 0d 0a 09 7d 20 65 |Notify(E|);...} e|
|00000610| 6c 73 65 20 7b 0d 0a 09 | 09 53 75 70 65 72 2e 4e |lse {...|.Super.N|
|00000620| 6f 74 69 66 79 28 45 29 | 3b 0d 0a 09 7d 0d 0a 7d |otify(E)|;...}..}|
|00000630| 0d 0a 0d 0a 2f 2f 20 49 | 6e 73 65 72 74 73 20 61 |....// I|nserts a|
|00000640| 20 63 68 61 72 61 63 74 | 65 72 20 61 74 20 74 68 | charact|er at th|
|00000650| 65 20 63 75 72 72 65 6e | 74 20 63 61 72 65 74 20 |e curren|t caret |
|00000660| 70 6f 73 69 74 69 6f 6e | 0d 0a 66 75 6e 63 74 69 |position|..functi|
|00000670| 6f 6e 20 62 6f 6f 6c 20 | 49 6e 73 65 72 74 28 62 |on bool |Insert(b|
|00000680| 79 74 65 20 43 29 0d 0a | 7b 0d 0a 09 6c 6f 63 61 |yte C)..|{...loca|
|00000690| 6c 20 73 74 72 69 6e 67 | 09 4e 65 77 56 61 6c 75 |l string|.NewValu|
|000006a0| 65 3b 0d 0a 0d 0a 09 4e | 65 77 56 61 6c 75 65 20 |e;.....N|ewValue |
|000006b0| 3d 20 4c 65 66 74 28 56 | 61 6c 75 65 2c 20 43 61 |= Left(V|alue, Ca|
|000006c0| 72 65 74 4f 66 66 73 65 | 74 29 20 24 20 43 68 72 |retOffse|t) $ Chr|
|000006d0| 28 43 29 20 24 20 4d 69 | 64 28 56 61 6c 75 65 2c |(C) $ Mi|d(Value,|
|000006e0| 20 43 61 72 65 74 4f 66 | 66 73 65 74 29 3b 0d 0a | CaretOf|fset);..|
|000006f0| 0d 0a 09 69 66 28 4c 65 | 6e 28 4e 65 77 56 61 6c |...if(Le|n(NewVal|
|00000700| 75 65 29 20 3e 20 4d 61 | 78 4c 65 6e 67 74 68 29 |ue) > Ma|xLength)|
|00000710| 20 0d 0a 09 09 72 65 74 | 75 72 6e 20 46 61 6c 73 | ....ret|urn Fals|
|00000720| 65 3b 0d 0a 0d 0a 09 43 | 61 72 65 74 4f 66 66 73 |e;.....C|aretOffs|
|00000730| 65 74 2b 2b 3b 0d 0a 0d | 0a 09 56 61 6c 75 65 20 |et++;...|..Value |
|00000740| 3d 20 4e 65 77 56 61 6c | 75 65 3b 0d 0a 09 69 66 |= NewVal|ue;...if|
|00000750| 28 62 44 65 6c 61 79 65 | 64 4e 6f 74 69 66 79 29 |(bDelaye|dNotify)|
|00000760| 0d 0a 09 09 62 43 68 61 | 6e 67 65 50 65 6e 64 69 |....bCha|ngePendi|
|00000770| 6e 67 20 3d 20 54 72 75 | 65 3b 0d 0a 09 65 6c 73 |ng = Tru|e;...els|
|00000780| 65 0d 0a 09 09 4e 6f 74 | 69 66 79 28 44 45 5f 43 |e....Not|ify(DE_C|
|00000790| 68 61 6e 67 65 29 3b 0d | 0a 09 72 65 74 75 72 6e |hange);.|..return|
|000007a0| 20 54 72 75 65 3b 0d 0a | 7d 0d 0a 0d 0a 66 75 6e | True;..|}....fun|
|000007b0| 63 74 69 6f 6e 20 62 6f | 6f 6c 20 42 61 63 6b 73 |ction bo|ol Backs|
|000007c0| 70 61 63 65 28 29 0d 0a | 7b 0d 0a 09 6c 6f 63 61 |pace()..|{...loca|
|000007d0| 6c 20 73 74 72 69 6e 67 | 09 4e 65 77 56 61 6c 75 |l string|.NewValu|
|000007e0| 65 3b 0d 0a 0d 0a 09 69 | 66 28 43 61 72 65 74 4f |e;.....i|f(CaretO|
|000007f0| 66 66 73 65 74 20 3d 3d | 20 30 29 20 72 65 74 75 |ffset ==| 0) retu|
|00000800| 72 6e 20 46 61 6c 73 65 | 3b 0d 0a 0d 0a 09 4e 65 |rn False|;.....Ne|
|00000810| 77 56 61 6c 75 65 20 3d | 20 4c 65 66 74 28 56 61 |wValue =| Left(Va|
|00000820| 6c 75 65 2c 20 43 61 72 | 65 74 4f 66 66 73 65 74 |lue, Car|etOffset|
|00000830| 20 2d 20 31 29 20 24 20 | 4d 69 64 28 56 61 6c 75 | - 1) $ |Mid(Valu|
|00000840| 65 2c 20 43 61 72 65 74 | 4f 66 66 73 65 74 29 3b |e, Caret|Offset);|
|00000850| 0d 0a 09 43 61 72 65 74 | 4f 66 66 73 65 74 2d 2d |...Caret|Offset--|
|00000860| 3b 0d 0a 0d 0a 09 56 61 | 6c 75 65 20 3d 20 4e 65 |;.....Va|lue = Ne|
|00000870| 77 56 61 6c 75 65 3b 0d | 0a 09 69 66 28 62 44 65 |wValue;.|..if(bDe|
|00000880| 6c 61 79 65 64 4e 6f 74 | 69 66 79 29 0d 0a 09 09 |layedNot|ify)....|
|00000890| 62 43 68 61 6e 67 65 50 | 65 6e 64 69 6e 67 20 3d |bChangeP|ending =|
|000008a0| 20 54 72 75 65 3b 0d 0a | 09 65 6c 73 65 0d 0a 09 | True;..|.else...|
|000008b0| 09 4e 6f 74 69 66 79 28 | 44 45 5f 43 68 61 6e 67 |.Notify(|DE_Chang|
|000008c0| 65 29 3b 0d 0a 09 72 65 | 74 75 72 6e 20 54 72 75 |e);...re|turn Tru|
|000008d0| 65 3b 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |e;..}...|.functio|
|000008e0| 6e 20 62 6f 6f 6c 20 44 | 65 6c 65 74 65 28 29 0d |n bool D|elete().|
|000008f0| 0a 7b 0d 0a 09 6c 6f 63 | 61 6c 20 73 74 72 69 6e |.{...loc|al strin|
|00000900| 67 09 4e 65 77 56 61 6c | 75 65 3b 0d 0a 0d 0a 09 |g.NewVal|ue;.....|
|00000910| 69 66 28 43 61 72 65 74 | 4f 66 66 73 65 74 20 3d |if(Caret|Offset =|
|00000920| 3d 20 4c 65 6e 28 56 61 | 6c 75 65 29 29 20 72 65 |= Len(Va|lue)) re|
|00000930| 74 75 72 6e 20 46 61 6c | 73 65 3b 0d 0a 0d 0a 09 |turn Fal|se;.....|
|00000940| 4e 65 77 56 61 6c 75 65 | 20 3d 20 4c 65 66 74 28 |NewValue| = Left(|
|00000950| 56 61 6c 75 65 2c 20 43 | 61 72 65 74 4f 66 66 73 |Value, C|aretOffs|
|00000960| 65 74 29 20 24 20 4d 69 | 64 28 56 61 6c 75 65 2c |et) $ Mi|d(Value,|
|00000970| 20 43 61 72 65 74 4f 66 | 66 73 65 74 20 2b 20 31 | CaretOf|fset + 1|
|00000980| 29 3b 0d 0a 0d 0a 09 56 | 61 6c 75 65 20 3d 20 4e |);.....V|alue = N|
|00000990| 65 77 56 61 6c 75 65 3b | 0d 0a 09 4e 6f 74 69 66 |ewValue;|...Notif|
|000009a0| 79 28 44 45 5f 43 68 61 | 6e 67 65 29 3b 0d 0a 09 |y(DE_Cha|nge);...|
|000009b0| 72 65 74 75 72 6e 20 54 | 72 75 65 3b 0d 0a 7d 0d |return T|rue;..}.|
|000009c0| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 62 6f 6f 6c |...funct|ion bool|
|000009d0| 20 57 6f 72 64 4c 65 66 | 74 28 29 0d 0a 7b 0d 0a | WordLef|t()..{..|
|000009e0| 09 77 68 69 6c 65 28 43 | 61 72 65 74 4f 66 66 73 |.while(C|aretOffs|
|000009f0| 65 74 20 3e 20 30 20 26 | 26 20 4d 69 64 28 56 61 |et > 0 &|& Mid(Va|
|00000a00| 6c 75 65 2c 20 43 61 72 | 65 74 4f 66 66 73 65 74 |lue, Car|etOffset|
|00000a10| 20 2d 20 31 2c 20 31 29 | 20 3d 3d 20 22 20 22 29 | - 1, 1)| == " ")|
|00000a20| 0d 0a 09 09 43 61 72 65 | 74 4f 66 66 73 65 74 2d |....Care|tOffset-|
|00000a30| 2d 3b 0d 0a 09 77 68 69 | 6c 65 28 43 61 72 65 74 |-;...whi|le(Caret|
|00000a40| 4f 66 66 73 65 74 20 3e | 20 30 20 26 26 20 4d 69 |Offset >| 0 && Mi|
|00000a50| 64 28 56 61 6c 75 65 2c | 20 43 61 72 65 74 4f 66 |d(Value,| CaretOf|
|00000a60| 66 73 65 74 20 2d 20 31 | 2c 20 31 29 20 21 3d 20 |fset - 1|, 1) != |
|00000a70| 22 20 22 29 0d 0a 09 09 | 43 61 72 65 74 4f 66 66 |" ")....|CaretOff|
|00000a80| 73 65 74 2d 2d 3b 0d 0a | 0d 0a 09 4c 61 73 74 44 |set--;..|...LastD|
|00000a90| 72 61 77 54 69 6d 65 20 | 3d 20 47 65 74 4c 65 76 |rawTime |= GetLev|
|00000aa0| 65 6c 28 29 2e 54 69 6d | 65 53 65 63 6f 6e 64 73 |el().Tim|eSeconds|
|00000ab0| 3b 0d 0a 09 62 53 68 6f | 77 43 61 72 65 74 20 3d |;...bSho|wCaret =|
|00000ac0| 20 54 72 75 65 3b 0d 0a | 0d 0a 09 72 65 74 75 72 | True;..|...retur|
|00000ad0| 6e 20 54 72 75 65 3b 09 | 0d 0a 7d 0d 0a 0d 0a 66 |n True;.|..}....f|
|00000ae0| 75 6e 63 74 69 6f 6e 20 | 62 6f 6f 6c 20 4d 6f 76 |unction |bool Mov|
|00000af0| 65 4c 65 66 74 28 29 0d | 0a 7b 0d 0a 09 69 66 28 |eLeft().|.{...if(|
|00000b00| 43 61 72 65 74 4f 66 66 | 73 65 74 20 3d 3d 20 30 |CaretOff|set == 0|
|00000b10| 29 20 72 65 74 75 72 6e | 20 46 61 6c 73 65 3b 0d |) return| False;.|
|00000b20| 0a 09 43 61 72 65 74 4f | 66 66 73 65 74 2d 2d 3b |..CaretO|ffset--;|
|00000b30| 0d 0a 0d 0a 09 4c 61 73 | 74 44 72 61 77 54 69 6d |.....Las|tDrawTim|
|00000b40| 65 20 3d 20 47 65 74 4c | 65 76 65 6c 28 29 2e 54 |e = GetL|evel().T|
|00000b50| 69 6d 65 53 65 63 6f 6e | 64 73 3b 0d 0a 09 62 53 |imeSecon|ds;...bS|
|00000b60| 68 6f 77 43 61 72 65 74 | 20 3d 20 54 72 75 65 3b |howCaret| = True;|
|00000b70| 0d 0a 0d 0a 09 72 65 74 | 75 72 6e 20 54 72 75 65 |.....ret|urn True|
|00000b80| 3b 09 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |;...}...|.functio|
|00000b90| 6e 20 62 6f 6f 6c 20 4d | 6f 76 65 52 69 67 68 74 |n bool M|oveRight|
|00000ba0| 28 29 0d 0a 7b 0d 0a 09 | 69 66 28 43 61 72 65 74 |()..{...|if(Caret|
|00000bb0| 4f 66 66 73 65 74 20 3d | 3d 20 4c 65 6e 28 56 61 |Offset =|= Len(Va|
|00000bc0| 6c 75 65 29 29 20 72 65 | 74 75 72 6e 20 46 61 6c |lue)) re|turn Fal|
|00000bd0| 73 65 3b 0d 0a 09 43 61 | 72 65 74 4f 66 66 73 65 |se;...Ca|retOffse|
|00000be0| 74 2b 2b 3b 0d 0a 0d 0a | 09 4c 61 73 74 44 72 61 |t++;....|.LastDra|
|00000bf0| 77 54 69 6d 65 20 3d 20 | 47 65 74 4c 65 76 65 6c |wTime = |GetLevel|
|00000c00| 28 29 2e 54 69 6d 65 53 | 65 63 6f 6e 64 73 3b 0d |().TimeS|econds;.|
|00000c10| 0a 09 62 53 68 6f 77 43 | 61 72 65 74 20 3d 20 54 |..bShowC|aret = T|
|00000c20| 72 75 65 3b 0d 0a 0d 0a | 09 72 65 74 75 72 6e 20 |rue;....|.return |
|00000c30| 54 72 75 65 3b 09 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |True;...|}....fun|
|00000c40| 63 74 69 6f 6e 20 62 6f | 6f 6c 20 57 6f 72 64 52 |ction bo|ol WordR|
|00000c50| 69 67 68 74 28 29 0d 0a | 7b 0d 0a 09 77 68 69 6c |ight()..|{...whil|
|00000c60| 65 28 43 61 72 65 74 4f | 66 66 73 65 74 20 3c 20 |e(CaretO|ffset < |
|00000c70| 4c 65 6e 28 56 61 6c 75 | 65 29 20 26 26 20 4d 69 |Len(Valu|e) && Mi|
|00000c80| 64 28 56 61 6c 75 65 2c | 20 43 61 72 65 74 4f 66 |d(Value,| CaretOf|
|00000c90| 66 73 65 74 2c 20 31 29 | 20 21 3d 20 22 20 22 29 |fset, 1)| != " ")|
|00000ca0| 0d 0a 09 09 43 61 72 65 | 74 4f 66 66 73 65 74 2b |....Care|tOffset+|
|00000cb0| 2b 3b 0d 0a 09 77 68 69 | 6c 65 28 43 61 72 65 74 |+;...whi|le(Caret|
|00000cc0| 4f 66 66 73 65 74 20 3c | 20 4c 65 6e 28 56 61 6c |Offset <| Len(Val|
|00000cd0| 75 65 29 20 26 26 20 4d | 69 64 28 56 61 6c 75 65 |ue) && M|id(Value|
|00000ce0| 2c 20 43 61 72 65 74 4f | 66 66 73 65 74 2c 20 31 |, CaretO|ffset, 1|
|00000cf0| 29 20 3d 3d 20 22 20 22 | 29 0d 0a 09 09 43 61 72 |) == " "|)....Car|
|00000d00| 65 74 4f 66 66 73 65 74 | 2b 2b 3b 0d 0a 0d 0a 09 |etOffset|++;.....|
|00000d10| 4c 61 73 74 44 72 61 77 | 54 69 6d 65 20 3d 20 47 |LastDraw|Time = G|
|00000d20| 65 74 4c 65 76 65 6c 28 | 29 2e 54 69 6d 65 53 65 |etLevel(|).TimeSe|
|00000d30| 63 6f 6e 64 73 3b 0d 0a | 09 62 53 68 6f 77 43 61 |conds;..|.bShowCa|
|00000d40| 72 65 74 20 3d 20 54 72 | 75 65 3b 0d 0a 0d 0a 09 |ret = Tr|ue;.....|
|00000d50| 72 65 74 75 72 6e 20 54 | 72 75 65 3b 09 0d 0a 7d |return T|rue;...}|
|00000d60| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 62 6f 6f |....func|tion boo|
|00000d70| 6c 20 4d 6f 76 65 48 6f | 6d 65 28 29 0d 0a 7b 0d |l MoveHo|me()..{.|
|00000d80| 0a 09 43 61 72 65 74 4f | 66 66 73 65 74 20 3d 20 |..CaretO|ffset = |
|00000d90| 30 3b 0d 0a 0d 0a 09 4c | 61 73 74 44 72 61 77 54 |0;.....L|astDrawT|
|00000da0| 69 6d 65 20 3d 20 47 65 | 74 4c 65 76 65 6c 28 29 |ime = Ge|tLevel()|
|00000db0| 2e 54 69 6d 65 53 65 63 | 6f 6e 64 73 3b 0d 0a 09 |.TimeSec|onds;...|
|00000dc0| 62 53 68 6f 77 43 61 72 | 65 74 20 3d 20 54 72 75 |bShowCar|et = Tru|
|00000dd0| 65 3b 0d 0a 0d 0a 09 72 | 65 74 75 72 6e 20 54 72 |e;.....r|eturn Tr|
|00000de0| 75 65 3b 09 0d 0a 7d 0d | 0a 0d 0a 66 75 6e 63 74 |ue;...}.|...funct|
|00000df0| 69 6f 6e 20 62 6f 6f 6c | 20 4d 6f 76 65 45 6e 64 |ion bool| MoveEnd|
|00000e00| 28 29 0d 0a 7b 0d 0a 09 | 43 61 72 65 74 4f 66 66 |()..{...|CaretOff|
|00000e10| 73 65 74 20 3d 20 4c 65 | 6e 28 56 61 6c 75 65 29 |set = Le|n(Value)|
|00000e20| 3b 0d 0a 0d 0a 09 4c 61 | 73 74 44 72 61 77 54 69 |;.....La|stDrawTi|
|00000e30| 6d 65 20 3d 20 47 65 74 | 4c 65 76 65 6c 28 29 2e |me = Get|Level().|
|00000e40| 54 69 6d 65 53 65 63 6f | 6e 64 73 3b 0d 0a 09 62 |TimeSeco|nds;...b|
|00000e50| 53 68 6f 77 43 61 72 65 | 74 20 3d 20 54 72 75 65 |ShowCare|t = True|
|00000e60| 3b 0d 0a 0d 0a 09 72 65 | 74 75 72 6e 20 54 72 75 |;.....re|turn Tru|
|00000e70| 65 3b 09 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |e;...}..|..functi|
|00000e80| 6f 6e 20 4b 65 79 54 79 | 70 65 28 20 69 6e 74 20 |on KeyTy|pe( int |
|00000e90| 4b 65 79 2c 20 66 6c 6f | 61 74 20 4d 6f 75 73 65 |Key, flo|at Mouse|
|00000ea0| 58 2c 20 66 6c 6f 61 74 | 20 4d 6f 75 73 65 59 20 |X, float| MouseY |
|00000eb0| 29 0d 0a 7b 0d 0a 09 2f | 2f 20 4c 6f 67 28 22 4b |)..{.../|/ Log("K|
|00000ec0| 65 79 54 79 70 65 3a 20 | 62 43 61 6e 45 64 69 74 |eyType: |bCanEdit|
|00000ed0| 20 3d 20 22 24 62 43 61 | 6e 45 64 69 74 29 3b 0d | = "$bCa|nEdit);.|
|00000ee0| 0a 0d 0a 09 69 66 28 62 | 43 61 6e 45 64 69 74 29 |....if(b|CanEdit)|
|00000ef0| 20 0d 0a 09 7b 0d 0a 09 | 09 69 66 28 62 41 6c 6c | ...{...|.if(bAll|
|00000f00| 53 65 6c 65 63 74 65 64 | 29 0d 0a 09 09 09 43 6c |Selected|).....Cl|
|00000f10| 65 61 72 28 29 3b 0d 0a | 0d 0a 09 09 62 41 6c 6c |ear();..|....bAll|
|00000f20| 53 65 6c 65 63 74 65 64 | 20 3d 20 46 61 6c 73 65 |Selected| = False|
|00000f30| 3b 0d 0a 0d 0a 09 09 69 | 66 28 62 4e 75 6d 65 72 |;......i|f(bNumer|
|00000f40| 69 63 4f 6e 6c 79 29 0d | 0a 09 09 7b 0d 0a 09 09 |icOnly).|...{....|
|00000f50| 09 69 66 28 20 4b 65 79 | 3e 3d 30 78 33 30 20 26 |.if( Key|>=0x30 &|
|00000f60| 26 20 4b 65 79 3c 3d 30 | 78 33 39 20 29 20 20 0d |& Key<=0|x39 ) .|
|00000f70| 0a 09 09 09 7b 0d 0a 09 | 09 09 09 49 6e 73 65 72 |....{...|...Inser|
|00000f80| 74 28 4b 65 79 29 3b 0d | 0a 09 09 09 7d 0d 0a 09 |t(Key);.|....}...|
|00000f90| 09 7d 0d 0a 09 09 65 6c | 73 65 0d 0a 09 09 7b 0d |.}....el|se....{.|
|00000fa0| 0a 09 09 09 69 66 28 20 | 4b 65 79 3e 3d 30 78 32 |....if( |Key>=0x2|
|00000fb0| 30 20 26 26 20 4b 65 79 | 3c 30 78 38 30 20 29 0d |0 && Key|<0x80 ).|
|00000fc0| 0a 09 09 09 7b 0d 0a 09 | 09 09 09 49 6e 73 65 72 |....{...|...Inser|
|00000fd0| 74 28 4b 65 79 29 3b 0d | 0a 09 09 09 7d 0d 0a 09 |t(Key);.|....}...|
|00000fe0| 09 7d 0d 0a 09 7d 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |.}...}..|}....fun|
|00000ff0| 63 74 69 6f 6e 20 4b 65 | 79 55 70 28 69 6e 74 20 |ction Ke|yUp(int |
|00001000| 4b 65 79 2c 20 66 6c 6f | 61 74 20 58 2c 20 66 6c |Key, flo|at X, fl|
|00001010| 6f 61 74 20 59 29 0d 0a | 7b 0d 0a 09 6c 6f 63 61 |oat Y)..|{...loca|
|00001020| 6c 20 50 6c 61 79 65 72 | 50 61 77 6e 20 50 3b 0d |l Player|Pawn P;.|
|00001030| 0a 0d 0a 09 50 20 3d 20 | 47 65 74 50 6c 61 79 65 |....P = |GetPlaye|
|00001040| 72 4f 77 6e 65 72 28 29 | 3b 0d 0a 09 73 77 69 74 |rOwner()|;...swit|
|00001050| 63 68 20 28 4b 65 79 29 | 0d 0a 09 7b 0d 0a 09 63 |ch (Key)|...{...c|
|00001060| 61 73 65 20 50 2e 45 49 | 6e 70 75 74 4b 65 79 2e |ase P.EI|nputKey.|
|00001070| 49 4b 5f 43 74 72 6c 3a | 0d 0a 09 09 62 43 6f 6e |IK_Ctrl:|....bCon|
|00001080| 74 72 6f 6c 44 6f 77 6e | 20 3d 20 46 61 6c 73 65 |trolDown| = False|
|00001090| 3b 0d 0a 09 09 62 72 65 | 61 6b 3b 0d 0a 09 63 61 |;....bre|ak;...ca|
|000010a0| 73 65 20 50 2e 45 49 6e | 70 75 74 4b 65 79 2e 49 |se P.EIn|putKey.I|
|000010b0| 4b 5f 53 68 69 66 74 3a | 0d 0a 09 09 62 53 68 69 |K_Shift:|....bShi|
|000010c0| 66 74 44 6f 77 6e 20 3d | 20 46 61 6c 73 65 3b 0d |ftDown =| False;.|
|000010d0| 0a 09 09 62 72 65 61 6b | 3b 0d 0a 09 7d 0d 0a 7d |...break|;...}..}|
|000010e0| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 4b 65 79 |....func|tion Key|
|000010f0| 44 6f 77 6e 28 69 6e 74 | 20 4b 65 79 2c 20 66 6c |Down(int| Key, fl|
|00001100| 6f 61 74 20 58 2c 20 66 | 6c 6f 61 74 20 59 29 0d |oat X, f|loat Y).|
|00001110| 0a 7b 0d 0a 09 6c 6f 63 | 61 6c 20 50 6c 61 79 65 |.{...loc|al Playe|
|00001120| 72 50 61 77 6e 20 50 3b | 0d 0a 0d 0a 09 50 20 3d |rPawn P;|.....P =|
|00001130| 20 47 65 74 50 6c 61 79 | 65 72 4f 77 6e 65 72 28 | GetPlay|erOwner(|
|00001140| 29 3b 0d 0a 09 73 77 69 | 74 63 68 20 28 4b 65 79 |);...swi|tch (Key|
|00001150| 29 0d 0a 09 7b 0d 0a 09 | 63 61 73 65 20 50 2e 45 |)...{...|case P.E|
|00001160| 49 6e 70 75 74 4b 65 79 | 2e 49 4b 5f 43 74 72 6c |InputKey|.IK_Ctrl|
|00001170| 3a 0d 0a 09 09 62 43 6f | 6e 74 72 6f 6c 44 6f 77 |:....bCo|ntrolDow|
|00001180| 6e 20 3d 20 54 72 75 65 | 3b 0d 0a 09 09 62 72 65 |n = True|;....bre|
|00001190| 61 6b 3b 0d 0a 09 63 61 | 73 65 20 50 2e 45 49 6e |ak;...ca|se P.EIn|
|000011a0| 70 75 74 4b 65 79 2e 49 | 4b 5f 53 68 69 66 74 3a |putKey.I|K_Shift:|
|000011b0| 0d 0a 09 09 62 53 68 69 | 66 74 44 6f 77 6e 20 3d |....bShi|ftDown =|
|000011c0| 20 54 72 75 65 3b 0d 0a | 09 09 62 72 65 61 6b 3b | True;..|..break;|
|000011d0| 0d 0a 09 63 61 73 65 20 | 50 2e 45 49 6e 70 75 74 |...case |P.EInput|
|000011e0| 4b 65 79 2e 49 4b 5f 45 | 73 63 61 70 65 3a 0d 0a |Key.IK_E|scape:..|
|000011f0| 09 09 62 72 65 61 6b 3b | 0d 0a 09 63 61 73 65 20 |..break;|...case |
|00001200| 50 2e 45 49 6e 70 75 74 | 4b 65 79 2e 49 4b 5f 45 |P.EInput|Key.IK_E|
|00001210| 6e 74 65 72 3a 0d 0a 09 | 09 69 66 28 62 43 61 6e |nter:...|.if(bCan|
|00001220| 45 64 69 74 29 0d 0a 09 | 09 09 4e 6f 74 69 66 79 |Edit)...|..Notify|
|00001230| 28 44 45 5f 45 6e 74 65 | 72 50 72 65 73 73 65 64 |(DE_Ente|rPressed|
|00001240| 29 3b 0d 0a 09 09 62 72 | 65 61 6b 3b 0d 0a 09 63 |);....br|eak;...c|
|00001250| 61 73 65 20 50 2e 45 49 | 6e 70 75 74 4b 65 79 2e |ase P.EI|nputKey.|
|00001260| 49 4b 5f 4d 6f 75 73 65 | 57 68 65 65 6c 55 70 3a |IK_Mouse|WheelUp:|
|00001270| 0d 0a 09 09 69 66 28 62 | 43 61 6e 45 64 69 74 29 |....if(b|CanEdit)|
|00001280| 0d 0a 09 09 09 4e 6f 74 | 69 66 79 28 44 45 5f 57 |.....Not|ify(DE_W|
|00001290| 68 65 65 6c 55 70 50 72 | 65 73 73 65 64 29 3b 0d |heelUpPr|essed);.|
|000012a0| 0a 09 09 62 72 65 61 6b | 3b 0d 0a 09 63 61 73 65 |...break|;...case|
|000012b0| 20 50 2e 45 49 6e 70 75 | 74 4b 65 79 2e 49 4b 5f | P.EInpu|tKey.IK_|
|000012c0| 4d 6f 75 73 65 57 68 65 | 65 6c 44 6f 77 6e 3a 0d |MouseWhe|elDown:.|
|000012d0| 0a 09 09 69 66 28 62 43 | 61 6e 45 64 69 74 29 0d |...if(bC|anEdit).|
|000012e0| 0a 09 09 09 4e 6f 74 69 | 66 79 28 44 45 5f 57 68 |....Noti|fy(DE_Wh|
|000012f0| 65 65 6c 44 6f 77 6e 50 | 72 65 73 73 65 64 29 3b |eelDownP|ressed);|
|00001300| 0d 0a 09 09 62 72 65 61 | 6b 3b 0d 0a 09 63 61 73 |....brea|k;...cas|
|00001310| 65 20 50 2e 45 49 6e 70 | 75 74 4b 65 79 2e 49 4b |e P.EInp|utKey.IK|
|00001320| 5f 52 69 67 68 74 3a 0d | 0a 09 09 69 66 28 62 43 |_Right:.|...if(bC|
|00001330| 61 6e 45 64 69 74 29 20 | 0d 0a 09 09 7b 0d 0a 09 |anEdit) |....{...|
|00001340| 09 09 69 66 28 62 43 6f | 6e 74 72 6f 6c 44 6f 77 |..if(bCo|ntrolDow|
|00001350| 6e 29 0d 0a 09 09 09 09 | 57 6f 72 64 52 69 67 68 |n)......|WordRigh|
|00001360| 74 28 29 3b 0d 0a 09 09 | 09 65 6c 73 65 0d 0a 09 |t();....|.else...|
|00001370| 09 09 09 4d 6f 76 65 52 | 69 67 68 74 28 29 3b 0d |...MoveR|ight();.|
|00001380| 0a 09 09 7d 0d 0a 09 09 | 62 41 6c 6c 53 65 6c 65 |...}....|bAllSele|
|00001390| 63 74 65 64 20 3d 20 46 | 61 6c 73 65 3b 0d 0a 09 |cted = F|alse;...|
|000013a0| 09 62 72 65 61 6b 3b 0d | 0a 09 63 61 73 65 20 50 |.break;.|..case P|
|000013b0| 2e 45 49 6e 70 75 74 4b | 65 79 2e 49 4b 5f 4c 65 |.EInputK|ey.IK_Le|
|000013c0| 66 74 3a 0d 0a 09 09 69 | 66 28 62 43 61 6e 45 64 |ft:....i|f(bCanEd|
|000013d0| 69 74 29 0d 0a 09 09 7b | 0d 0a 09 09 09 69 66 28 |it)....{|.....if(|
|000013e0| 62 43 6f 6e 74 72 6f 6c | 44 6f 77 6e 29 0d 0a 09 |bControl|Down)...|
|000013f0| 09 09 09 57 6f 72 64 4c | 65 66 74 28 29 3b 0d 0a |...WordL|eft();..|
|00001400| 09 09 09 65 6c 73 65 0d | 0a 09 09 09 09 4d 6f 76 |...else.|.....Mov|
|00001410| 65 4c 65 66 74 28 29 3b | 0d 0a 09 09 7d 0d 0a 09 |eLeft();|....}...|
|00001420| 09 62 41 6c 6c 53 65 6c | 65 63 74 65 64 20 3d 20 |.bAllSel|ected = |
|00001430| 46 61 6c 73 65 3b 0d 0a | 09 09 62 72 65 61 6b 3b |False;..|..break;|
|00001440| 0d 0a 09 63 61 73 65 20 | 50 2e 45 49 6e 70 75 74 |...case |P.EInput|
|00001450| 4b 65 79 2e 49 4b 5f 48 | 6f 6d 65 3a 0d 0a 09 09 |Key.IK_H|ome:....|
|00001460| 69 66 28 62 43 61 6e 45 | 64 69 74 29 0d 0a 09 09 |if(bCanE|dit)....|
|00001470| 09 4d 6f 76 65 48 6f 6d | 65 28 29 3b 0d 0a 09 09 |.MoveHom|e();....|
|00001480| 62 41 6c 6c 53 65 6c 65 | 63 74 65 64 20 3d 20 46 |bAllSele|cted = F|
|00001490| 61 6c 73 65 3b 0d 0a 09 | 09 62 72 65 61 6b 3b 0d |alse;...|.break;.|
|000014a0| 0a 09 63 61 73 65 20 50 | 2e 45 49 6e 70 75 74 4b |..case P|.EInputK|
|000014b0| 65 79 2e 49 4b 5f 45 6e | 64 3a 0d 0a 09 09 69 66 |ey.IK_En|d:....if|
|000014c0| 28 62 43 61 6e 45 64 69 | 74 29 0d 0a 09 09 09 4d |(bCanEdi|t).....M|
|000014d0| 6f 76 65 45 6e 64 28 29 | 3b 0d 0a 09 09 62 41 6c |oveEnd()|;....bAl|
|000014e0| 6c 53 65 6c 65 63 74 65 | 64 20 3d 20 46 61 6c 73 |lSelecte|d = Fals|
|000014f0| 65 3b 0d 0a 09 09 62 72 | 65 61 6b 3b 0d 0a 09 63 |e;....br|eak;...c|
|00001500| 61 73 65 20 50 2e 45 49 | 6e 70 75 74 4b 65 79 2e |ase P.EI|nputKey.|
|00001510| 49 4b 5f 42 61 63 6b 73 | 70 61 63 65 3a 0d 0a 09 |IK_Backs|pace:...|
|00001520| 09 69 66 28 62 43 61 6e | 45 64 69 74 29 0d 0a 09 |.if(bCan|Edit)...|
|00001530| 09 7b 0d 0a 09 09 09 69 | 66 28 62 41 6c 6c 53 65 |.{.....i|f(bAllSe|
|00001540| 6c 65 63 74 65 64 29 0d | 0a 09 09 09 09 43 6c 65 |lected).|.....Cle|
|00001550| 61 72 28 29 3b 0d 0a 09 | 09 09 65 6c 73 65 0d 0a |ar();...|..else..|
|00001560| 09 09 09 09 42 61 63 6b | 73 70 61 63 65 28 29 3b |....Back|space();|
|00001570| 0d 0a 09 09 7d 0d 0a 09 | 09 62 41 6c 6c 53 65 6c |....}...|.bAllSel|
|00001580| 65 63 74 65 64 20 3d 20 | 46 61 6c 73 65 3b 0d 0a |ected = |False;..|
|00001590| 09 09 62 72 65 61 6b 3b | 0d 0a 09 63 61 73 65 20 |..break;|...case |
|000015a0| 50 2e 45 49 6e 70 75 74 | 4b 65 79 2e 49 4b 5f 44 |P.EInput|Key.IK_D|
|000015b0| 65 6c 65 74 65 3a 0d 0a | 09 09 69 66 28 62 43 61 |elete:..|..if(bCa|
|000015c0| 6e 45 64 69 74 29 0d 0a | 09 09 7b 0d 0a 09 09 09 |nEdit)..|..{.....|
|000015d0| 69 66 28 62 41 6c 6c 53 | 65 6c 65 63 74 65 64 29 |if(bAllS|elected)|
|000015e0| 0d 0a 09 09 09 09 43 6c | 65 61 72 28 29 3b 0d 0a |......Cl|ear();..|
|000015f0| 09 09 09 65 6c 73 65 0d | 0a 09 09 09 09 44 65 6c |...else.|.....Del|
|00001600| 65 74 65 28 29 3b 0d 0a | 09 09 7d 0d 0a 09 09 62 |ete();..|..}....b|
|00001610| 41 6c 6c 53 65 6c 65 63 | 74 65 64 20 3d 20 46 61 |AllSelec|ted = Fa|
|00001620| 6c 73 65 3b 0d 0a 09 09 | 62 72 65 61 6b 3b 0d 0a |lse;....|break;..|
|00001630| 09 64 65 66 61 75 6c 74 | 3a 0d 0a 09 09 69 66 28 |.default|:....if(|
|00001640| 4e 6f 74 69 66 79 4f 77 | 6e 65 72 20 21 3d 20 4e |NotifyOw|ner != N|
|00001650| 6f 6e 65 29 0d 0a 09 09 | 09 4e 6f 74 69 66 79 4f |one)....|.NotifyO|
|00001660| 77 6e 65 72 2e 4b 65 79 | 44 6f 77 6e 28 4b 65 79 |wner.Key|Down(Key|
|00001670| 2c 20 58 2c 20 59 29 3b | 0d 0a 09 09 65 6c 73 65 |, X, Y);|....else|
|00001680| 0d 0a 09 09 09 53 75 70 | 65 72 2e 4b 65 79 44 6f |.....Sup|er.KeyDo|
|00001690| 77 6e 28 4b 65 79 2c 20 | 58 2c 20 59 29 3b 0d 0a |wn(Key, |X, Y);..|
|000016a0| 09 09 62 72 65 61 6b 3b | 0d 0a 09 7d 0d 0a 7d 0d |..break;|...}..}.|
|000016b0| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 43 6c 69 63 |...funct|ion Clic|
|000016c0| 6b 28 66 6c 6f 61 74 20 | 58 2c 20 66 6c 6f 61 74 |k(float |X, float|
|000016d0| 20 59 29 0d 0a 7b 0d 0a | 09 4e 6f 74 69 66 79 28 | Y)..{..|.Notify(|
|000016e0| 44 45 5f 43 6c 69 63 6b | 29 3b 0d 0a 7d 0d 0a 0d |DE_Click|);..}...|
|000016f0| 0a 66 75 6e 63 74 69 6f | 6e 20 4c 4d 6f 75 73 65 |.functio|n LMouse|
|00001700| 44 6f 77 6e 28 66 6c 6f | 61 74 20 58 2c 20 66 6c |Down(flo|at X, fl|
|00001710| 6f 61 74 20 59 29 0d 0a | 7b 0d 0a 09 53 75 70 65 |oat Y)..|{...Supe|
|00001720| 72 2e 4c 4d 6f 75 73 65 | 44 6f 77 6e 28 58 2c 20 |r.LMouse|Down(X, |
|00001730| 59 29 3b 0d 0a 09 4e 6f | 74 69 66 79 28 44 45 5f |Y);...No|tify(DE_|
|00001740| 4c 4d 6f 75 73 65 44 6f | 77 6e 29 3b 0d 0a 7d 0d |LMouseDo|wn);..}.|
|00001750| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 50 61 69 6e |...funct|ion Pain|
|00001760| 74 28 43 61 6e 76 61 73 | 20 43 2c 20 66 6c 6f 61 |t(Canvas| C, floa|
|00001770| 74 20 58 2c 20 66 6c 6f | 61 74 20 59 29 0d 0a 7b |t X, flo|at Y)..{|
|00001780| 0d 0a 09 6c 6f 63 61 6c | 20 66 6c 6f 61 74 20 57 |...local| float W|
|00001790| 2c 20 48 3b 0d 0a 09 6c | 6f 63 61 6c 20 66 6c 6f |, H;...l|ocal flo|
|000017a0| 61 74 20 54 65 78 74 59 | 3b 0d 0a 0d 0a 09 43 2e |at TextY|;.....C.|
|000017b0| 46 6f 6e 74 20 3d 20 52 | 6f 6f 74 2e 46 6f 6e 74 |Font = R|oot.Font|
|000017c0| 73 5b 46 6f 6e 74 5d 3b | 0d 0a 0d 0a 09 54 65 78 |s[Font];|.....Tex|
|000017d0| 74 53 69 7a 65 28 43 2c | 20 22 41 22 2c 20 57 2c |tSize(C,| "A", W,|
|000017e0| 20 48 29 3b 0d 0a 09 54 | 65 78 74 59 20 3d 20 28 | H);...T|extY = (|
|000017f0| 57 69 6e 48 65 69 67 68 | 74 20 2d 20 48 29 20 2f |WinHeigh|t - H) /|
|00001800| 20 32 3b 0d 0a 0d 0a 09 | 54 65 78 74 53 69 7a 65 | 2;.....|TextSize|
|00001810| 28 43 2c 20 4c 65 66 74 | 28 56 61 6c 75 65 2c 20 |(C, Left|(Value, |
|00001820| 43 61 72 65 74 4f 66 66 | 73 65 74 29 2c 20 57 2c |CaretOff|set), W,|
|00001830| 20 48 29 3b 0d 0a 0d 0a | 09 43 2e 44 72 61 77 43 | H);....|.C.DrawC|
|00001840| 6f 6c 6f 72 2e 52 20 3d | 20 32 35 35 3b 0d 0a 09 |olor.R =| 255;...|
|00001850| 43 2e 44 72 61 77 43 6f | 6c 6f 72 2e 47 20 3d 20 |C.DrawCo|lor.G = |
|00001860| 32 35 35 3b 0d 0a 09 43 | 2e 44 72 61 77 43 6f 6c |255;...C|.DrawCol|
|00001870| 6f 72 2e 42 20 3d 20 32 | 35 35 3b 0d 0a 0d 0a 09 |or.B = 2|55;.....|
|00001880| 69 66 28 57 20 2b 20 4f | 66 66 73 65 74 20 3c 20 |if(W + O|ffset < |
|00001890| 30 29 0d 0a 09 09 4f 66 | 66 73 65 74 20 3d 20 2d |0)....Of|fset = -|
|000018a0| 57 3b 0d 0a 0d 0a 09 69 | 66 28 57 20 2b 20 4f 66 |W;.....i|f(W + Of|
|000018b0| 66 73 65 74 20 3e 20 28 | 57 69 6e 57 69 64 74 68 |fset > (|WinWidth|
|000018c0| 20 2d 20 32 29 29 0d 0a | 09 7b 0d 0a 09 09 4f 66 | - 2))..|.{....Of|
|000018d0| 66 73 65 74 20 3d 20 28 | 57 69 6e 57 69 64 74 68 |fset = (|WinWidth|
|000018e0| 20 2d 20 32 29 20 2d 20 | 57 3b 0d 0a 09 09 69 66 | - 2) - |W;....if|
|000018f0| 28 4f 66 66 73 65 74 20 | 3e 20 30 29 20 4f 66 66 |(Offset |> 0) Off|
|00001900| 73 65 74 20 3d 20 30 3b | 0d 0a 09 7d 0d 0a 0d 0a |set = 0;|...}....|
|00001910| 09 43 2e 44 72 61 77 43 | 6f 6c 6f 72 20 3d 20 54 |.C.DrawC|olor = T|
|00001920| 65 78 74 43 6f 6c 6f 72 | 3b 0d 0a 0d 0a 09 69 66 |extColor|;.....if|
|00001930| 28 62 41 6c 6c 53 65 6c | 65 63 74 65 64 29 0d 0a |(bAllSel|ected)..|
|00001940| 09 7b 0d 0a 09 09 44 72 | 61 77 53 74 72 65 74 63 |.{....Dr|awStretc|
|00001950| 68 65 64 54 65 78 74 75 | 72 65 28 43 2c 20 4f 66 |hedTextu|re(C, Of|
|00001960| 66 73 65 74 20 2b 20 31 | 2c 20 54 65 78 74 59 2c |fset + 1|, TextY,|
|00001970| 20 57 2c 20 48 2c 20 54 | 65 78 74 75 72 65 27 55 | W, H, T|exture'U|
|00001980| 57 69 6e 64 6f 77 2e 57 | 68 69 74 65 54 65 78 74 |Window.W|hiteText|
|00001990| 75 72 65 27 29 3b 0d 0a | 0d 0a 09 09 2f 2f 20 49 |ure');..|....// I|
|000019a0| 6e 76 65 72 74 20 43 6f | 6c 6f 72 73 0d 0a 09 09 |nvert Co|lors....|
|000019b0| 43 2e 44 72 61 77 43 6f | 6c 6f 72 2e 52 20 3d 20 |C.DrawCo|lor.R = |
|000019c0| 32 35 35 20 5e 20 43 2e | 44 72 61 77 43 6f 6c 6f |255 ^ C.|DrawColo|
|000019d0| 72 2e 52 3b 0d 0a 09 09 | 43 2e 44 72 61 77 43 6f |r.R;....|C.DrawCo|
|000019e0| 6c 6f 72 2e 47 20 3d 20 | 32 35 35 20 5e 20 43 2e |lor.G = |255 ^ C.|
|000019f0| 44 72 61 77 43 6f 6c 6f | 72 2e 47 3b 0d 0a 09 09 |DrawColo|r.G;....|
|00001a00| 43 2e 44 72 61 77 43 6f | 6c 6f 72 2e 42 20 3d 20 |C.DrawCo|lor.B = |
|00001a10| 32 35 35 20 5e 20 43 2e | 44 72 61 77 43 6f 6c 6f |255 ^ C.|DrawColo|
|00001a20| 72 2e 42 3b 0d 0a 09 7d | 0d 0a 0d 0a 09 43 6c 69 |r.B;...}|.....Cli|
|00001a30| 70 54 65 78 74 28 43 2c | 20 4f 66 66 73 65 74 20 |pText(C,| Offset |
|00001a40| 2b 20 31 2c 20 54 65 78 | 74 59 2c 20 20 56 61 6c |+ 1, Tex|tY, Val|
|00001a50| 75 65 29 3b 0d 0a 0d 0a | 09 69 66 28 28 21 62 48 |ue);....|.if((!bH|
|00001a60| 61 73 4b 65 79 62 6f 61 | 72 64 46 6f 63 75 73 29 |asKeyboa|rdFocus)|
|00001a70| 20 7c 7c 20 28 21 62 43 | 61 6e 45 64 69 74 29 29 | || (!bC|anEdit))|
|00001a80| 0d 0a 09 09 62 53 68 6f | 77 43 61 72 65 74 20 3d |....bSho|wCaret =|
|00001a90| 20 46 61 6c 73 65 3b 0d | 0a 09 65 6c 73 65 0d 0a | False;.|..else..|
|00001aa0| 09 7b 0d 0a 09 09 69 66 | 28 28 47 65 74 4c 65 76 |.{....if|((GetLev|
|00001ab0| 65 6c 28 29 2e 54 69 6d | 65 53 65 63 6f 6e 64 73 |el().Tim|eSeconds|
|00001ac0| 20 3e 20 4c 61 73 74 44 | 72 61 77 54 69 6d 65 20 | > LastD|rawTime |
|00001ad0| 2b 20 30 2e 33 29 20 7c | 7c 20 28 47 65 74 4c 65 |+ 0.3) ||| (GetLe|
|00001ae0| 76 65 6c 28 29 2e 54 69 | 6d 65 53 65 63 6f 6e 64 |vel().Ti|meSecond|
|00001af0| 73 20 3c 20 4c 61 73 74 | 44 72 61 77 54 69 6d 65 |s < Last|DrawTime|
|00001b00| 29 29 0d 0a 09 09 7b 0d | 0a 09 09 09 4c 61 73 74 |))....{.|....Last|
|00001b10| 44 72 61 77 54 69 6d 65 | 20 3d 20 47 65 74 4c 65 |DrawTime| = GetLe|
|00001b20| 76 65 6c 28 29 2e 54 69 | 6d 65 53 65 63 6f 6e 64 |vel().Ti|meSecond|
|00001b30| 73 3b 0d 0a 09 09 09 62 | 53 68 6f 77 43 61 72 65 |s;.....b|ShowCare|
|00001b40| 74 20 3d 20 21 62 53 68 | 6f 77 43 61 72 65 74 3b |t = !bSh|owCaret;|
|00001b50| 0d 0a 09 09 7d 0d 0a 09 | 7d 0d 0a 0d 0a 09 69 66 |....}...|}.....if|
|00001b60| 28 62 53 68 6f 77 43 61 | 72 65 74 29 0d 0a 09 09 |(bShowCa|ret)....|
|00001b70| 43 6c 69 70 54 65 78 74 | 28 43 2c 20 4f 66 66 73 |ClipText|(C, Offs|
|00001b80| 65 74 20 2b 20 57 20 2d | 20 31 2c 20 54 65 78 74 |et + W -| 1, Text|
|00001b90| 59 2c 20 22 7c 22 29 3b | 0d 0a 7d 0d 0a 0d 0a 66 |Y, "|");|..}....f|
|00001ba0| 75 6e 63 74 69 6f 6e 20 | 43 6c 6f 73 65 28 6f 70 |unction |Close(op|
|00001bb0| 74 69 6f 6e 61 6c 20 62 | 6f 6f 6c 20 62 42 79 50 |tional b|ool bByP|
|00001bc0| 61 72 65 6e 74 29 0d 0a | 7b 0d 0a 09 69 66 28 62 |arent)..|{...if(b|
|00001bd0| 43 68 61 6e 67 65 50 65 | 6e 64 69 6e 67 29 0d 0a |ChangePe|nding)..|
|00001be0| 09 7b 0d 0a 09 09 62 43 | 68 61 6e 67 65 50 65 6e |.{....bC|hangePen|
|00001bf0| 64 69 6e 67 20 3d 20 46 | 61 6c 73 65 3b 0d 0a 09 |ding = F|alse;...|
|00001c00| 09 4e 6f 74 69 66 79 28 | 44 45 5f 43 68 61 6e 67 |.Notify(|DE_Chang|
|00001c10| 65 29 3b 0d 0a 09 7d 0d | 0a 0d 0a 09 53 75 70 65 |e);...}.|....Supe|
|00001c20| 72 2e 43 6c 6f 73 65 28 | 62 42 79 50 61 72 65 6e |r.Close(|bByParen|
|00001c30| 74 29 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |t);..}..|..functi|
|00001c40| 6f 6e 20 46 6f 63 75 73 | 4f 74 68 65 72 57 69 6e |on Focus|OtherWin|
|00001c50| 64 6f 77 28 55 57 69 6e | 64 6f 77 57 69 6e 64 6f |dow(UWin|dowWindo|
|00001c60| 77 20 57 29 0d 0a 7b 0d | 0a 09 69 66 28 62 43 68 |w W)..{.|..if(bCh|
|00001c70| 61 6e 67 65 50 65 6e 64 | 69 6e 67 29 0d 0a 09 7b |angePend|ing)...{|
|00001c80| 0d 0a 09 09 62 43 68 61 | 6e 67 65 50 65 6e 64 69 |....bCha|ngePendi|
|00001c90| 6e 67 20 3d 20 46 61 6c | 73 65 3b 0d 0a 09 09 4e |ng = Fal|se;....N|
|00001ca0| 6f 74 69 66 79 28 44 45 | 5f 43 68 61 6e 67 65 29 |otify(DE|_Change)|
|00001cb0| 3b 0d 0a 09 7d 0d 0a 0d | 0a 09 69 66 28 4e 6f 74 |;...}...|..if(Not|
|00001cc0| 69 66 79 4f 77 6e 65 72 | 20 21 3d 20 4e 6f 6e 65 |ifyOwner| != None|
|00001cd0| 29 0d 0a 09 09 4e 6f 74 | 69 66 79 4f 77 6e 65 72 |)....Not|ifyOwner|
|00001ce0| 2e 46 6f 63 75 73 4f 74 | 68 65 72 57 69 6e 64 6f |.FocusOt|herWindo|
|00001cf0| 77 28 57 29 3b 0d 0a 09 | 65 6c 73 65 0d 0a 09 09 |w(W);...|else....|
|00001d00| 53 75 70 65 72 2e 46 6f | 63 75 73 4f 74 68 65 72 |Super.Fo|cusOther|
|00001d10| 57 69 6e 64 6f 77 28 57 | 29 3b 0d 0a 7d 0d 0a 0d |Window(W|);..}...|
|00001d20| 0a 66 75 6e 63 74 69 6f | 6e 20 4b 65 79 46 6f 63 |.functio|n KeyFoc|
|00001d30| 75 73 45 6e 74 65 72 28 | 29 0d 0a 7b 0d 0a 09 69 |usEnter(|)..{...i|
|00001d40| 66 28 62 53 65 6c 65 63 | 74 4f 6e 46 6f 63 75 73 |f(bSelec|tOnFocus|
|00001d50| 20 26 26 20 21 62 48 61 | 73 4b 65 79 62 6f 61 72 | && !bHa|sKeyboar|
|00001d60| 64 46 6f 63 75 73 29 0d | 0a 09 09 53 65 6c 65 63 |dFocus).|...Selec|
|00001d70| 74 41 6c 6c 28 29 3b 0d | 0a 0d 0a 09 53 75 70 65 |tAll();.|....Supe|
|00001d80| 72 2e 4b 65 79 46 6f 63 | 75 73 45 6e 74 65 72 28 |r.KeyFoc|usEnter(|
|00001d90| 29 3b 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |);..}...|.functio|
|00001da0| 6e 20 44 6f 75 62 6c 65 | 43 6c 69 63 6b 28 66 6c |n Double|Click(fl|
|00001db0| 6f 61 74 20 58 2c 20 66 | 6c 6f 61 74 20 59 29 0d |oat X, f|loat Y).|
|00001dc0| 0a 7b 0d 0a 09 53 75 70 | 65 72 2e 44 6f 75 62 6c |.{...Sup|er.Doubl|
|00001dd0| 65 43 6c 69 63 6b 28 58 | 2c 20 59 29 3b 0d 0a 09 |eClick(X|, Y);...|
|00001de0| 53 65 6c 65 63 74 41 6c | 6c 28 29 3b 0d 0a 7d 0d |SelectAl|l();..}.|
|00001df0| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 46 6f 63 75 |...funct|ion Focu|
|00001e00| 73 57 69 6e 64 6f 77 28 | 29 0d 0a 7b 0d 0a 09 69 |sWindow(|)..{...i|
|00001e10| 66 28 62 43 68 61 6e 67 | 65 50 65 6e 64 69 6e 67 |f(bChang|ePending|
|00001e20| 29 0d 0a 09 7b 0d 0a 09 | 09 62 43 68 61 6e 67 65 |)...{...|.bChange|
|00001e30| 50 65 6e 64 69 6e 67 20 | 3d 20 46 61 6c 73 65 3b |Pending |= False;|
|00001e40| 0d 0a 09 09 4e 6f 74 69 | 66 79 28 44 45 5f 43 68 |....Noti|fy(DE_Ch|
|00001e50| 61 6e 67 65 29 3b 09 09 | 09 2f 2f 20 4e 45 52 46 |ange);..|.// NERF|
|00001e60| 3a 20 68 61 63 6b 20 74 | 6f 20 66 69 78 20 6d 69 |: hack t|o fix mi|
|00001e70| 73 73 69 6e 67 20 63 68 | 61 6e 67 65 20 6d 65 73 |ssing ch|ange mes|
|00001e80| 73 61 67 65 0d 0a 09 7d | 0d 0a 7d 0d 0a 0d 0a 66 |sage...}|..}....f|
|00001e90| 75 6e 63 74 69 6f 6e 20 | 4b 65 79 46 6f 63 75 73 |unction |KeyFocus|
|00001ea0| 45 78 69 74 28 29 0d 0a | 7b 0d 0a 09 62 41 6c 6c |Exit()..|{...bAll|
|00001eb0| 53 65 6c 65 63 74 65 64 | 20 3d 20 46 61 6c 73 65 |Selected| = False|
|00001ec0| 3b 0d 0a 09 53 75 70 65 | 72 2e 4b 65 79 46 6f 63 |;...Supe|r.KeyFoc|
|00001ed0| 75 73 45 78 69 74 28 29 | 3b 0d 0a 09 69 66 28 62 |usExit()|;...if(b|
|00001ee0| 43 68 61 6e 67 65 50 65 | 6e 64 69 6e 67 29 0d 0a |ChangePe|nding)..|
|00001ef0| 09 7b 0d 0a 09 09 62 43 | 68 61 6e 67 65 50 65 6e |.{....bC|hangePen|
|00001f00| 64 69 6e 67 20 3d 20 46 | 61 6c 73 65 3b 0d 0a 09 |ding = F|alse;...|
|00001f10| 09 4e 6f 74 69 66 79 28 | 44 45 5f 43 68 61 6e 67 |.Notify(|DE_Chang|
|00001f20| 65 29 3b 09 09 09 2f 2f | 20 4e 45 52 46 3a 20 68 |e);...//| NERF: h|
|00001f30| 61 63 6b 20 74 6f 20 66 | 69 78 20 6d 69 73 73 69 |ack to f|ix missi|
|00001f40| 6e 67 20 63 68 61 6e 67 | 65 20 6d 65 73 73 61 67 |ng chang|e messag|
|00001f50| 65 0d 0a 09 7d 0d 0a 7d | 0d 0a 09 0d 0a 00 |e...}..}|...... |
+--------+-------------------------+-------------------------+--------+--------+
